home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / dps / vscop20.lha / TBC.REXX < prev    next >
OS/2 REXX Batch file  |  1987-10-08  |  1KB  |  207 lines
  1. /* Script for TBCS */
  2.  
  3. if ~show('L','rexxmathlib.library') then
  4.     if ~addlib('rexxmathlib.library',0,-30,0) then do
  5.         MSG 'ERROR: rexxmathlib.library not available - RTFM.'
  6.         exit 10
  7.     end
  8.  
  9. OPTIONS RESULTS
  10. ADDRESS TBC
  11.  
  12. TOFRONT
  13.  
  14. TBC 1
  15.  
  16. VIDEO UNITY
  17. BLACK UNITY
  18. CHROMA UNITY
  19. HUE UNITY
  20. HORIZ UNITY
  21.  
  22. INPUT 
  23. Say RESULTS
  24.  
  25. ADDRESS COMMAND 'WAIT 5'
  26.  
  27.     DO I = 100 TO 70 BY -.5
  28.  
  29.         VIDEO I
  30.  
  31.     END
  32.  
  33.  
  34.  
  35.     DO I  = 70 TO 130 BY .5
  36.  
  37.         VIDEO I
  38.  
  39.     END
  40.  
  41.  
  42.     DO I = 130 TO 100 BY -.5
  43.  
  44.         VIDEO I
  45.  
  46.     END
  47.  
  48.  
  49. VIDEO UNITY
  50.  
  51.     DO I =  7.5 TO -22.5 BY -.5
  52.  
  53.         BLACK I
  54.  
  55.     END
  56.  
  57.  
  58.  
  59.     DO I  = -22.5 TO 37.3 BY .5
  60.  
  61.         BLACK I
  62.  
  63.     END
  64.  
  65.  
  66.     DO I =  37.3 TO 7.5 BY -.5
  67.  
  68.         BLACK I
  69.  
  70.     END
  71.  
  72.  
  73.  
  74. BLACK UNITY
  75.  
  76.     DO I = 100 TO 50 BY -.5
  77.  
  78.         CHROMA I
  79.  
  80.     END
  81.  
  82.  
  83.  
  84.     DO I  = 50 TO 150 BY .5
  85.  
  86.         CHROMA I
  87.  
  88.     END
  89.  
  90.  
  91.     DO I = 150 TO 100 BY -.5
  92.  
  93.         CHROMA I
  94.  
  95.     END
  96.  
  97.  
  98.  
  99. CHROMA UNITY
  100.  
  101.     DO I = 0 TO -45 BY -1
  102.  
  103.         HUE I
  104.  
  105.     END
  106.  
  107.  
  108.  
  109.     DO I  = -45 TO 45 BY 1
  110.  
  111.         HUE I
  112.  
  113.     END
  114.  
  115.  
  116.     DO I = 45 TO 0 BY -1
  117.  
  118.         HUE I
  119.  
  120.     END
  121.  
  122.  
  123. HUE UNITY
  124.  
  125.     DO I = 0 TO -1 BY -.02
  126.  
  127.         HOR I
  128.  
  129.     END
  130.  
  131.  
  132.  
  133.     DO I  = -1 TO 1 BY .02
  134.  
  135.         HOR I
  136.  
  137.     END
  138.  
  139.  
  140.     DO I = 1 TO 0 BY -.02
  141.  
  142.         HOR I
  143.  
  144.     END
  145.  
  146.  
  147. HORIZ UNITY
  148.  
  149. ADDRESS COMMAND WAIT '3'
  150.  
  151.  
  152. TOBALANCE
  153.  
  154.     DO R = 0 TO -30 BY .3
  155.  
  156.         RED R
  157.         BLUE COS(R)
  158.  
  159.     END 
  160.  
  161.  
  162.  
  163. Do I =  -3.1459*4 to 3.1459*4 by .08
  164.  
  165.     RED Sin(I)*30
  166.     BLUE COS(I)*30
  167.  
  168.  
  169. End
  170.  
  171. RED
  172.  
  173. R = RESULT
  174.  
  175. BLUE
  176.  
  177. B = RESULT
  178.  
  179. RED UNITY
  180.  
  181.     Do I = B to 0 by -.2
  182.  
  183.         BLUE I
  184.  
  185.     End
  186.  
  187.     
  188.  
  189.  
  190.  
  191.     
  192. address command 'wait 3'
  193.  
  194.  
  195. RED UNITY
  196. BLUE UNITY
  197.  
  198.  
  199.  
  200.  
  201.  
  202. TOPROCAMP
  203.  
  204.  
  205. TOBACK
  206.  
  207.